#include <stdio.h>
#include <locale.h>
#include <libguile.h>

int main(int argc, const char *argv[])
{
        SCM func;
        
        setlocale(LC_ALL, "");

        scm_init_guile();       //在任何其他Scheme函数之前调用
        scm_c_primitive_load("script.scm"); //装载scheme文件
        func = scm_variable_ref(scm_c_lookup("simple_script")); //查找指定变量并保存到func中
        scm_call_0( func ); //调用func指定的函数
        
        return 0;
}
